home *** CD-ROM | disk | FTP | other *** search
/ Scene Storm / Scene Storm - Volume 1.iso / coding / c / amiexpress / source / ae / code / ax3.00 / tlock.c < prev    next >
Encoding:
C/C++ Source or Header  |  1980-01-03  |  331 b   |  17 lines
  1. extern struct Library *DOSBase;
  2. #include <pragmas/dos_pragmas.h>
  3. #include <pragmas/exec_pragmas.h>
  4. #include <exec/exec.h>
  5. #include <stdio.h>
  6. #include <stdlib.h>
  7. #include <dos/dos.h>
  8. #include <clib/dos_protos.h>
  9. int TLock(char *str)
  10. {
  11.   long lock;
  12.   if(lock=Lock(str,ACCESS_READ))
  13.   {
  14.     UnLock(lock); return(1);
  15.   }
  16.   return(0);
  17. }